-- background: 3800 from stack: in.1a2
-- bmap block id: 4094
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  hide menubar
  push recent card
end openBackground

on saveClip
  global clippingStr
  set lockscreen to true
  set cursor to 4
  put field clipping into clippingStr
  push card
  ask "Clipping stack to save to" with "Clipping"
  put it into theStack
  go stack theStack
  go last card
  domenu "New Card"
  put clippingStr into field clipping
  pop card
  put "Clippings stored in stack '" & theStack & "'"
end saveClip



-- part 4 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=14 top=33 right=270 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clipping


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=271 right=288 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=14 top=272 right=288 bottom=68
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseUp
  global clippingStr
  answer "Clear your clippings?:" with "Clear" or "Cancel"
  if it = "Cancel" then exit mouseUp
  put empty into clippingStr
  put empty into field clipping
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=71 top=272 right=288 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Text
----- HyperTalk script -----
on mouseUp
  global clippingStr
  put field clipping into clippingStr
  ask "Filename for output"
  put ":" & it into fileStr
  open file fileStr
  write clippingStr to file fileStr
  close file fileStr
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=466 top=271 right=288 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=411 top=271 right=288 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=271 right=288 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=127 top=272 right=288 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save
----- HyperTalk script -----
on mouseUp
  saveClip
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=183 top=272 right=288 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clip Stack
----- HyperTalk script -----
on mouseUp
  go to stack "Clipping"
end mouseUp